From: John Paul Wallington Date: Mon, 12 Apr 2004 10:37:27 +0000 (+0000) Subject: (url-cookie-handle-set-cookie): Replace calls to obsolete X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23259 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e2fc714556fe2329ac0a4dc6f5aa1b4eb219ca05;p=emacs.git (url-cookie-handle-set-cookie): Replace calls to obsolete `assoc-ignore-case' with calls to `assoc-string'. --- diff --git a/lisp/url/url-cookie.el b/lisp/url/url-cookie.el index 2a282c7d00a..997c203069c 100644 --- a/lisp/url/url-cookie.el +++ b/lisp/url/url-cookie.el @@ -332,14 +332,14 @@ telling Microsoft that.") (setq url-cookies-changed-since-last-save t) (let* ((args (url-parse-args str t)) (case-fold-search t) - (secure (and (assoc-ignore-case "secure" args) t)) - (domain (or (cdr-safe (assoc-ignore-case "domain" args)) + (secure (and (assoc-string "secure" args t) t)) + (domain (or (cdr-safe (assoc-string "domain" args t)) (url-host url-current-object))) (current-url (url-view-url t)) (trusted url-cookie-trusted-urls) (untrusted url-cookie-untrusted-urls) - (expires (cdr-safe (assoc-ignore-case "expires" args))) - (path (or (cdr-safe (assoc-ignore-case "path" args)) + (expires (cdr-safe (assoc-string "expires" args t))) + (path (or (cdr-safe (assoc-string "path" args t)) (file-name-directory (url-filename url-current-object)))) (rest nil)) @@ -377,7 +377,7 @@ telling Microsoft that.") (match-string 3 expires) " " ; year (match-string 4 expires) ".00 " ; hour:minutes:seconds (match-string 6 expires)))) ":" ; timezone - + (while (consp trusted) (if (string-match (car trusted) current-url) (setq trusted (- (match-end 0) (match-beginning 0)))